Login dark
Toggle source 
title: 在 Excel 中从超链接中提取实际地址
author: 零贰
date: 2020-08-09 13:04:17
category: [编程代码]
tags: [VC6,代码,学习]

在 Excel 中从超链接中提取实际地址

@TOC

_

正文

使用“编辑超链接”功能从超链接中提取实际地址
在这里，“编辑超链接”功能可以帮助你提取每个超链接的底层 URL，并将该实际地址放入另一个单元格中。你可以按照以下步骤操作：

  1. 选择带有超链接的单元格并右键单击，在弹出的上下文菜单中选择“编辑超链接”，请参见截图：

choose Edit Hyperlink from context menu

  1. 随后会弹出一个“编辑超链接”对话框，选择并复制（Ctrl+C）对话框中“地址”字段中的整个 URL。

select and copy the entire URL from the Address field

  1. 然后关闭对话框并将实际地址粘贴到你想要的任何单元格中。

注意：使用此方法，每次只能提取一个超链接地址，但如果你有多个超链接需要提取，则需要重复应用此功能。

arrow blue right bubble 使用 Kutools for Excel 快速轻松地从超链接中提取实际地址
这里有一个方便的工具，称为 Kutools for Excel，通过其“转换超链接”功能，你可以快速处理以下操作：

从超链接中提取实际地址；
将 URL 文本转换为可点击的超链接。
Kutools for Excel 提供了超过 300 种高级功能，简化复杂任务，提升创造力与效率。 通过集成 AI 能力，Kutools 能够精准自动执行任务，让数据管理变得轻松简单。Kutools for Excel 的详细信息... 免费试用...
如果你已经安装了 Kutools for Excel，请按以下步骤操作：

  1. 选择包含需要提取的超链接的区域。
  2. 单击 Kutools > 链接 > 转换超链接，请参见截图：

click Convert Hyperlinks feature of kutools

3在 转换超链接 对话框中，选择 超链接地址转单元格内容 选项，并单击 doc-button1 按钮来自 结果区域 指定一个单元格来放置结果。

set options in the dialog box

  1. 然后单击“ 确定”，实际地址已从超链接中提取出来。请参见截图：

the actual addresses have been extracted from the hyperlinks

注意：如果你想将实际地址放到原始区域，请勾选“转换来源区域”。

立即下载并免费试用 Kutools for Excel！

arrow blue right bubble 使用 VBA 代码从超链接中提取实际地址
对于大量超链接，上述方法可能会繁琐且耗时，因此以下 VBA 代码可以帮助你一次性快速提取多个地址。

  1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。
  2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng

If Rng.Hyperlinks.Count > 0 Then
    Rng.Value = Rng.Hyperlinks.Item(1).Address
End If

Next
End Sub

  1. 然后按 F5 键运行代码，会弹出一个对话框让你选择要提取真实地址的超链接，请参见截图：

vba code to select the hyperlinks

  1. 然后单击“确定”，所选单元格内容已转换为原始区域中的真实超链接地址。请参见截图：

original data arrow right the real hyperlink addresses are extracted
arrow blue right bubble 使用用户自定义函数从超链接中提取实际地址
以下用户自定义函数也可以从超链接中提取实际 URL。

  1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。
  2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice

GetURL = pWorkRng.Hyperlinks(1).Address

End Function

  1. 保存代码并关闭窗口，选择一个空白单元格输入公式 =GetURL(A2) （A2 是包含超链接的单元格），然后按 Enter 键。你可以看到实际的超链接地址已被提取。

apply a formula to extract the real hyperlink address

_

  • 原文链接
  • 注：知识搬运，供学习交流使用，侵联删！

_